home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 36
/
036.d81
/
key beeper
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
39 lines
0 gosub60100:clr
100 rem keybeeper - pablo trincavelli
110 poke54275,8:poke54277,36:poke54278,9:poke254,65
120 forj=0to54:readk:poke50000+j,k:cs=cs+k:next
150 data120,169,098,141,020,003,169,195
160 data141,021,003,088,169,015,141,024
170 data212,096,165,197,164,254,136,201
180 data064,240,022,162,128,201,001,240
190 data012,162,064,201,008,144,006,201
200 data051,240,002,162,016,142,001,212
210 data200,140,004,212,076,049,234
300 sys50000:print"[147] keybeeper"
310 print" keybeeper is now active. pressing"
320 print"certain keys produces a beep."
330 print"press [space] to exit to basic; [return]";
340 print"to return to loadstar...":poke198,.
350 geta$:ifa$<>" "anda$<>chr$(13)then350
360 poke198,.:ifa$=" "thenend
370 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
380 ifer<>63thenend
390 sys65418:load"hello connect",8
60100 poke53280,7:poke53281,1
60110 printchr$(142)"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 fora=1to23:print"[221]"spc(38)"[221]";:next
60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]";
60140 fora=217to242:pokea,peek(a)or128:next
60150 print"[149] loadstar presents:"
60160 print" "
60170 print" keybeeper [155] "
60180 print" [155] "
60190 print" by pablo trincavelli [155] "
60200 print" [155] "
60210 print" (c)opyright 1987 [155] "
60220 print" [155] "
60230 print" "
60240 print" [149]press space to continue.":poke198,.
60250 geta$:ifa$<>" "then60250
60260 return